﻿Public Class Form28


    Private Sub Form28_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.DonvisudungTableAdapter.Fill(Me.ErpharmaDataSet.donvisudung)
        Me.KetoantienmatTableAdapter.Fill(Me.ErpharmaDataSet.ketoantienmat)

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim f As Form29 = New Form29
        f.setDt(Me.KetoantienmatIUltraGrid.getDatatableTuIUltraGrid())
        f.Show()
    End Sub
End Class